home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
051-075
/
disk_056
/
mcad
/
tdp
/
source
/
tdp.h
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
4KB
|
150 lines
/* tdp.h */
#include <stdio.h>
#include <exec/types.h>
#include <exec/lists.h>
#include <intuition/intuition.h>
#include <graphics/text.h>
#include "ffp.h"
#define MAXCHAN 64
#define MAXPOINTS (MAXCHAN * MAXCHAN)
#define RLARGE 1.E10
#define DEG2RAD (PI/180.)
#define MAXHORIZ 600
#define MAXVERT 380
#define TOPVERT 400
#define RESET 0
#define UP 1
#define DOWN -1
#define DATA 1
#define INTERP 2
#define BIGINT 2147483000
#define BACKGND_COLOR 0
#define PASS_0_COLOR 1
#define PASS_1_COLOR 3
#define AXIS_COLOR 2
void pen();
void hlplot();
void hlcross();
void plot3d();
void calc();
char *getwrd();
void initwind();
void CleanUp();
extern struct GfxBase *GfxBase;
extern struct IntuitionBase *IntuitionBase;
# ifdef MAIN_MODULE
FFP zd[MAXPOINTS], d2r;
FFP xA[4], yA[4], zA[4]; /* AXES */
int xA_i[4], yA_i[4];
FFP sinp, cosp, sint, cost;
int x[MAXCHAN][MAXCHAN], y[MAXCHAN][MAXCHAN];
short vhicum[MAXHORIZ], vlocum[MAXHORIZ];
int debug = 0, inverse_vid = 0, nsides = 1;
int PlotFile = FALSE, To_mCAD = FALSE;
FILE *pfp, *mfp;
char ans, str[20];
FFP phi, theta;
int nxpts=0, nypts=0;
char netplot='y', axes='n';
struct Window *OpenWindow();
struct Screen *OpenScreen();
USHORT class, code;
struct Window *w;
struct RastPort *rp;
struct ViewPort *vp;
struct IntuiMessage *message;
struct Screen *screen;
# else
extern FFP zd[MAXPOINTS], d2r;
extern FFP xA[], yA[], zA[]; /* AXES */
extern int xA_i[], yA_i[];
extern FFP sinp, cosp, sint, cost;
extern int x[MAXCHAN][MAXCHAN], y[MAXCHAN][MAXCHAN];
extern short vhicum[MAXHORIZ], vlocum[MAXHORIZ];
extern int debug, inverse_vid, nsides;
extern int PlotFile, To_mCAD;
extern FILE *pfp, *mfp;
extern char ans, str[];
extern FFP phi, theta;
extern int nxpts, nypts;
extern char netplot, axes;
extern struct Window *OpenWindow();
extern struct Screen *OpenScreen();
extern USHORT class, code;
extern struct Window *w;
extern struct RastPort *rp;
extern struct ViewPort *vp;
extern struct IntuiMessage *message;
extern struct Screen *screen;
#endif
#ifdef MAIN_MODULE
struct NewScreen ns = {
0,0,640,400,2,0,3,HIRES | LACE,CUSTOMSCREEN,NULL,"TDP",NULL
};
struct NewWindow nw = {
0,0,640,400,0,3,MENUPICK,ACTIVATE|BORDERLESS|NOCAREREFRESH,
NULL,NULL,NULL,NULL,NULL,0,0,0,0,CUSTOMSCREEN
};
#define MIFlags (ITEMENABLED | ITEMTEXT | HIGHCOMP)
#define ChH 8
#define ChW 8
/*** MENU 0 -- PROJECT ****************************************************/
struct IntuiText M_text03 = {1,14,JAM2,0,0,NULL,"Quit ",NULL};
struct MenuItem M_item03 =
{NULL,0,3*ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text03,NULL,NULL,NULL,0};
#define MI_QUIT 3
struct IntuiText M_text02 = {1,14,JAM2,0,0,NULL,"To mCAD ",NULL};
struct MenuItem M_item02 =
{&M_item03,0,2*ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text02,NULL,NULL,NULL,0};
#define MI_TOMCAD 2
struct IntuiText M_text01 = {1,14,JAM2,0,0,NULL,"Plot ",NULL};
struct MenuItem M_item01 =
{&M_item02,0,ChH,ChW*8,ChH,MIFlags,0L,(APTR)&M_text01,NULL,NULL,NULL,0};
#define MI_PLOT 1
struct IntuiText M_text00 = {1,14,JAM2,0,0,NULL,"Open ",NULL};
struct MenuItem M_item00 =
{&M_item01,0,0,ChW*8,ChH,MIFlags,0L,(APTR)&M_text00,NULL,NULL,NULL,0};
#define MI_OPEN 0
struct Menu Menu0 =
{NULL,0,0,ChW*8,ChH,MENUENABLED,"Project ",&M_item00};
#define M_PROJECT 0
void initwind()
{
if (!(GfxBase = (struct GfxBase *)OpenLibrary("graphics.library",0)))
{printf("Can't open graphics library...\n"); exit();}
if (!(IntuitionBase =
(struct IntuitionBase *)OpenLibrary("intuition.library",0)))
{printf("Can't open intuition library...\n"); exit();}
if (!(screen = OpenScreen(&ns)))
{printf("Can't open screen...\n"); exit(0);}
nw.Screen = screen;
if (!(w = OpenWindow(&nw)))
{printf("Can't open window...\n"); exit(0);}
rp = w->RPort; vp = &w->WScreen->ViewPort;
SetRGB4(vp,AXIS_COLOR, 15, 0, 0); SetRGB4(vp,PASS_1_COLOR, 0, 0,15);
SetDrMd(rp,JAM1); SetAPen(rp,PASS_0_COLOR);
SetMenuStrip(w,&Menu0); ShowTitle(screen,FALSE);
}
void CleanUp()
{
ClearMenuStrip(w); CloseWindow(w); CloseScreen(screen);
CloseLibrary(GfxBase); CloseLibrary(IntuitionBase);
}
#endif